home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / win_utl2 / pspa370a.zip / QUICKREF.POM < prev    next >
Text File  |  1996-04-26  |  7KB  |  112 lines
  1. ;   The following comment lines are for quick-reference.
  2. ;   You can copy them into your own POM files to make programming easier.
  3. ;
  4. ;   ----------------------------------  ---------------------------------------
  5. ;   COMMAND FORMATS                     EXAMPLE
  6. ;   ----------------------------------  ---------------------------------------
  7. ;   ACCEPT   val c val                  ACCEPT   $FLINE[1 3] = "YES"
  8. ;   AGAIN    [val c val]                AGAIN    linecntr #< "3"
  9. ;   APPEND   var val val [val [val]]    APPEND   name first last
  10. ;   BEGIN    [val c val]                BEGIN    linecntr #< "3"
  11. ;   CALC     var num operation num      CALC     total total "+" sold
  12. ;   CALCBITS var char operation char    CALCBITS z byte1 "XOR" $80
  13. ;   CALCREAL var num operation num      CALCREAL salary hours "*" rate
  14. ;   CHANGE   var val val                CHANGE   date "/" "-"
  15. ;   CHOP     from to [,from to] [...]   CHOP     1 250, 251 300
  16. ;   COPY     var val from [to]          COPY     x $FLINE "3" "5"
  17. ;   CVTCASE  var val [ctl]              CVTCASE  x $FLINE "LA"
  18. ;   DATE     var num num num [ctl]      DATE     x "98" "12" "31"
  19. ;   DELETE   var from [to]              DELETE   x "3" "5"
  20. ;   DONE     [val c val]                DONE     $FLINE = "End Data"
  21. ;   ELSE                                ELSE
  22. ;   END                                 END
  23. ;   EPILOGUE                            EPILOGUE
  24. ;   ERASE    file                       ERASE    "C:\MYFILES\OUT.TXT"
  25. ;   EXTRACT  var var from [to]          EXTRACT  x $FLINE "15" "30"
  26. ;   FINDPOSN var val left [right [ctl]] FINDPOSN x $FLINE "2*/"
  27. ;   GET      var ctl [ctl [ctl]]        GET      x #0 "END" "I"
  28. ;   GETENV   var val                    GETENV   x "COMSPEC"
  29. ;   GETTEXT  var ctl [ctl]              GETTEXT  date "WORD" "DATE"
  30. ;   HALT     val c val val [ctl]        HALT     x = y "Item repeated"
  31. ;   IF       val c val var val [val]    IF       x = "Y" THEN z = "N"
  32. ;   IGNORE   val c val                  IGNORE   price = "0.00"
  33. ;   INSERT   var ctl val                INSERT   price "L" "$"
  34. ;   LOG      val c val val [val [val]]  LOG      x = y "Item repeated"
  35. ;   LOOKCOLS num num num num            LOOKCOLS "1" "3" "8" "255"
  36. ;   LOOKFILE file                       LOOKFILE "C:\TABLES\DATA.TBL"
  37. ;   LOOKSPEC ctl ctl ctl                LOOKSPEC "Y" "N" "N"
  38. ;   LOOKUP   var val                    LOOKUP   phonenum "FRED JONES"
  39. ;   MAKEDATA var val ctl                MAKEDATA x "255" "BYTE"
  40. ;   MAKETEXT var val ctl                MAKETEXT z x "BYTE"
  41. ;   MAPFILE  file val [ctl]             MAPFILE  "XYZ.MPF" "XYZ" "ANYCASE"
  42. ;   MINLEN   num [num]                  MINLEN   "15" "1"
  43. ;   MONTHNUM var val                    MONTHNUM x "February"
  44. ;   MSGWAIT  num                        MSGWAIT  "60"
  45. ;   NEXTFILE [val c val]                NEXTFILE $FLINE = "End File"
  46. ;   OFILE    file                       OFILE    "C:\MYFILES\OUT.TXT"
  47. ;   OUT      [val c val] |pic           OUT      z = "X" |{price}
  48. ;   OUTEND   [val c val] |pic           OUTEND   z = "X" |{$FLINE}
  49. ;   OUTHDG   val                        OUTHDG   "LIST OF EMPLOYEES"
  50. ;   OUTPAGE  [val c val]                OUTPAGE  partnum <> oldpartnum
  51. ;   PAD      var ctl char num           PAD      sernum "L" "0" "10"
  52. ;   PAGELEN  num [ctl]                  PAGELEN  "66" "N"
  53. ;   PARSE    var val left right [ctl]   PARSE    x $FLINE "2*(" "3*)" "I"
  54. ;   PAUSE    val                        PAUSE    "1000"
  55. ;   PEEL     var var left right [ctl]   PEEL     x $FLINE "2*(" "3*)" "I"
  56. ;   PROLOGUE                            PROLOGUE
  57. ;   PROPER   var [ctl [file]]           PROPER   custname "I" "XY.PEF"
  58. ;   READNEXT [val c val]                READNEXT $FLINE[1 5] = "NOTE:"
  59. ;   REMAP    var [val]                  REMAP    $FLINE "HEX"
  60. ;   SET      var val                    SET      name $FLINE[20 26]
  61. ;   SETLEN   var val                    SETLEN   length custname
  62. ;   SOUND    ctl                        SOUND    "BUZZ"
  63. ;   SPLIT    from to [,from to] [...]   SPLIT    1 250, 251 300
  64. ;   TODAY    var [ctl]                  TODAY    x "?y/?n/?d"
  65. ;   TRACE    var                        TRACE    price
  66. ;   TRIM     var ctl char               TRIM     price "R" "$"
  67. ;   ZERODATE val val val                ZERODATE "1753" "12" "31"
  68. ;   ----------------------------------  ---------------------------------------
  69. ;
  70. ;   The following conventions are used in the preceding table:
  71. ;
  72. ;   c      Comparator (if omitted, defaults to "equals" comparison)
  73. ;   char   Variable or literal: must be a single byte or character
  74. ;   ctl    Variable or literal: command control specifications
  75. ;   file   File name (see "How Parse-O-Matic Searches for a File")
  76. ;   from   Variable or literal: a starting character position (see Note #1)
  77. ;   left   Variable or literal: a delimiter-search parameter
  78. ;   num    Variable or literal: must contain a number (see Note #1)
  79. ;   pic    Output picture used by OUT and OUTEND
  80. ;   right  Variable or literal: a delimiter-search parameter
  81. ;   to     Variable or literal: an ending position (see Note #1)
  82. ;   val    Variable or literal whose value is being read
  83. ;   var    Variable that is being set
  84. ;   [xxx]  Square brackets indicate optional items
  85. ;
  86. ;   Note #1:  Tabs, spaces and commas are stripped from numeric values
  87. ;
  88. ;   COMMAND   DEFAULT SETTINGS
  89. ;   --------  -----------------------------------------------------------------
  90. ;   CVTCASE   "UI" (Uppercase, IBM extended character set)
  91. ;   DATE      Default date format is as set in POMDATE.CFG
  92. ;   FINDPOSN  "IS" (Include, Start)
  93. ;   LOOKCOLS  Keyfield Start = 1, End = 10; Datafield Start = 12, End = 255
  94. ;   LOOKFILE  No default, but you can set the file name via the /L parameter
  95. ;   LOOKSPEC  "Y" "N" "N" (Trim = Yes; Sorted = No; Case-sensitive = No)
  96. ;   MAPFILE   "MATCHCASE"
  97. ;   MINLEN    Normal reading (value1) = "1"; READNEXT (value2) = "0"
  98. ;   PAGELEN   "0" "N" if command omitted; ctl defaults to "Y" (use form feeds)
  99. ;   PARSE     "X" (Exclude delimiters)
  100. ;   PEEL      "X" (Exclude delimiters)
  101. ;   PROPER    "IW" (Intelligent word detection, capitalize each word)
  102. ;   TODAY     Default date format is as set in POMDATE.CFG
  103. ;
  104. ;   ---------------------------------------------------------------------------
  105. ;
  106. ;   PADDING FOR CLARITY
  107. ;
  108. ;   Before:   IF PRICE "0.00" BONUS "1.00" "0.00
  109. ;   After:    IF PRICE = "0.00" THEN BONUS = "1.00" ELSE "0.00
  110. ;
  111. ;******************************************************************************
  112.